home *** CD-ROM | disk | FTP | other *** search
/ Delphi 5 for Professionals / DELPHI5.iso / AddOns / Components / Swiftsoft Multimedia Tools / MMTOOL3.EXE / MMWavReg.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1998-09-10  |  5.8 KB  |  143 lines
  1. {========================================================================}
  2. {=                (c) 1995-98 SwiftSoft Ronald Dittrich                 =}
  3. {========================================================================}
  4. {=                          All Rights Reserved                         =}
  5. {========================================================================}
  6. {=  D 01099 Dresden             = Fax.: +49 (0)351-8037944              =}
  7. {=  Loewenstr.7a                = info@swiftsoft.de                     =}
  8. {========================================================================}
  9. {=  Actual versions on http://www.swiftsoft.de/mmtools.html             =}
  10. {========================================================================}
  11. {=  This code is for reference purposes only and may not be copied or   =}
  12. {=  distributed in any format electronic or otherwise except one copy   =}
  13. {=  for backup purposes.                                                =}
  14. {=                                                                      =}
  15. {=  No Delphi Component Kit or Component individually or in a collection=}
  16. {=  subclassed or otherwise from the code in this unit, or associated   =}
  17. {=  .pas, .dfm, .dcu, .asm or .obj files may be sold or distributed     =}
  18. {=  without express permission from SwiftSoft.                          =}
  19. {=                                                                      =}
  20. {=  For more licence informations please refer to the associated        =}
  21. {=  HelpFile.                                                           =}
  22. {========================================================================}
  23. {=  $Date: 10.09.98 - 20:54:38 $                                        =}
  24. {========================================================================}
  25. unit MMWavReg;
  26.  
  27. {$I COMPILER.INC}
  28.  
  29. Interface
  30.  
  31. Procedure Register;
  32.  
  33. Implementation
  34.  
  35. {$IFDEF WIN32}
  36.    {$R MMWAVE.D32}
  37. {$ELSE}
  38.    {$R MMWAVE.D16}
  39. {$ENDIF}
  40.  
  41. uses
  42.     Controls,
  43.     Classes,
  44.     DsgnIntf,
  45.     SysUtils,
  46. {$IFNDEF DELPHI3}
  47.     FiltEdit,
  48. {$ENDIF}
  49.     MMDesign,
  50.     MMDSPObj,
  51.     MMACMDlg,
  52.     MMWavPrp,
  53.     MMWave,
  54.     MMWInfo,
  55. {$IFNDEF BUILD_ACTIVEX}
  56.   {$IFNDEF CBUILDER3}
  57.     MMWBlob,
  58.   {$ENDIF}
  59. {$ENDIF}
  60.     MMCstDlg,
  61.     MMWavIn,
  62.     MMWavOut,
  63. {$IFDEF WIN32}
  64.     MMTrigg,
  65.     MMRingBf,
  66. {$ENDIF}
  67.     MMADCvt,
  68.     MMACMCvt,
  69.     MMDSPMtr,
  70.     MMEnvPrp,
  71.     MMEnvelp,
  72.     MMPLoad,
  73.     MMWPlay,
  74.     MMWRec;
  75.  
  76. {=========================================================================}
  77. procedure Register;
  78. begin
  79.      RegisterComponents('MMWave', [TMMACM,
  80.                                    TMMWaveFile,
  81.                                    TMMMemoryWave,
  82.                                    {$IFNDEF BUILD_ACTIVEX}
  83.                                    {$IFNDEF CBUILDER3}
  84.                                    TMMWaveBlob,
  85.                                    {$ENDIF}
  86.                                    {$ENDIF}
  87.                                    TMMWaveInfoEditor,
  88.                                    TMMWaveOpenDialog,
  89.                                    TMMWaveSaveDialog,
  90.                                    TMMPictureOpenDialog,
  91.                                    TMMPictureSaveDialog,
  92.                                    TMMWavePlayer,
  93.                                    TMMWaveRecorder,
  94.                                    {$IFDEF WIN32}
  95.                                    TMMRingBuffer,
  96.                                    {$ENDIF}
  97.                                    TMMPreloader,
  98.                                    TMMWaveIn,
  99.                                    TMMWaveOut,
  100.                                    TMMDSPInterface,
  101.                    TMMADPCMConverter,
  102.                                    {$IFDEF WIN32}
  103.                                    TMMPCMConverter,
  104.                                    TMMACMConverter,
  105.                                    TMMTrigger,
  106.                                    TMMDSPMeter,
  107.                                    {$ENDIF}
  108.                                    TMMEnvelope]);
  109.  
  110. {$IFNDEF DELPHI3}
  111.      RegisterPropertyEditor(TypeInfo(String), TMMCustomOpenDialog, 'Filter',
  112.                             TFilterProperty);
  113. {$ENDIF}
  114.      RegisterPropertyEditor(TypeInfo(TMMWave), nil,'',TMMWaveProperty);
  115.      RegisterPropertyEditor(TypeInfo(TFileName),TMMWave,'FileName',TMMWaveFileProperty);
  116.      RegisterPropertyEditor(TypeInfo(TMMEnvelopePointList), TMMEnvelope, 'Points', TMMEnvelopePointProperty);
  117.  
  118.      RegisterPropertyEditor(TypeInfo(TMMDSPComponent),TMMDSPComponent,'Input',TMMDSPComponentInputEditor);
  119.      RegisterPropertyEditor(TypeInfo(TMMDSPComponent),TMMDSPComponent,'Output',TMMDSPComponentOutputEditor);
  120.  
  121.      RegisterComponentEditor(TMMEnvelope, TMMEnvelopeEditor);
  122.      RegisterComponentEditor(TMMCustomWaveFile, TMMWaveComponentEditor);
  123.      RegisterComponentEditor(TMMWavePlayer, TMMWaveComponentEditor);
  124.      RegisterComponentEditor(TMMWaveRecorder, TMMWaveComponentEditor);
  125.  
  126.      RegisterPropertyEditor(TypeInfo(string), TMMWaveRecorder,'InputFormat',TMMWaveFormatProperty);
  127. end;
  128.  
  129. initialization
  130.     RegisterProperty(ptOutput,'DSP',TMMDSPComponent,'Output',TMMDSPComponent,DSPOutConnectCheck);
  131.     RegisterProperty(ptInput,'DSP',TMMDSPComponent,'Input',TMMDSPComponent,DSPInpConnectCheck);
  132.  
  133.     RegisterPropertyException(ptOutput,'DSP',TMMDSPComponent,'Output',TMMWaveIn,nil);
  134.     RegisterPropertyException(ptOutput,'DSP',TMMDSPComponent,'Output',TMMCustomMemoryWave,nil);
  135.  
  136.     RegisterProperty(ptInput,'Misc',TMMCustomWaveFile,'Source',TMMACM,nil);
  137.     RegisterProperty(ptInput,'Misc',TMMCustomWaveFile,'Source',TMMWaveInfoEditor,nil);
  138.  
  139.     RegisterPropertyException(ptOutput,'DSP',TMMDSPComponent,'Output',TMMWavePlayer,nil);
  140.     RegisterPropertyException(ptOutput,'DSP',TMMDSPComponent,'Output',TMMWaveRecorder,nil);
  141. end.
  142.  
  143.